home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / syslog.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.7 KB  |  61 lines
  1. if (!defined &_SYSLOG) {
  2.     eval 'sub _SYSLOG {1;}';
  3.     eval 'sub LOG_KERN {(0<<3);}';
  4.     eval 'sub LOG_USER {(1<<3);}';
  5.     eval 'sub LOG_MAIL {(2<<3);}';
  6.     eval 'sub LOG_DAEMON {(3<<3);}';
  7.     eval 'sub LOG_AUTH {(4<<3);}';
  8.     eval 'sub LOG_SYSLOG {(5<<3);}';
  9.     eval 'sub LOG_LPR {(6<<3);}';
  10.     eval 'sub LOG_NEWS {(7<<3);}';
  11.     eval 'sub LOG_UUCP {(8<<3);}';
  12.     eval 'sub LOG_LOCAL0 {(16<<3);}';
  13.     eval 'sub LOG_LOCAL1 {(17<<3);}';
  14.     eval 'sub LOG_LOCAL2 {(18<<3);}';
  15.     eval 'sub LOG_LOCAL3 {(19<<3);}';
  16.     eval 'sub LOG_LOCAL4 {(20<<3);}';
  17.     eval 'sub LOG_LOCAL5 {(21<<3);}';
  18.     eval 'sub LOG_LOCAL6 {(22<<3);}';
  19.     eval 'sub LOG_LOCAL7 {(23<<3);}';
  20.     eval 'sub LOG_NFACILITIES {24;}';
  21.     eval 'sub LOG_FACMASK {0x03f8;}';
  22.     eval 'sub LOG_FAC {
  23.         local($p) = @_;
  24.         eval "((($p) &  &LOG_FACMASK) >> 3)";
  25.     }';
  26.     eval 'sub LOG_EMERG {0;}';
  27.     eval 'sub LOG_ALERT {1;}';
  28.     eval 'sub LOG_CRIT {2;}';
  29.     eval 'sub LOG_ERR {3;}';
  30.     eval 'sub LOG_WARNING {4;}';
  31.     eval 'sub LOG_NOTICE {5;}';
  32.     eval 'sub LOG_INFO {6;}';
  33.     eval 'sub LOG_DEBUG {7;}';
  34.     eval 'sub LOG_PRIMASK {0x0007;}';
  35.     eval 'sub LOG_PRI {
  36.         local($p) = @_;
  37.         eval "(($p) &  &LOG_PRIMASK)";
  38.     }';
  39.     eval 'sub LOG_MAKEPRI {
  40.         local($fac, $pri) = @_;
  41.         eval "((($fac) << 3) | ($pri))";
  42.     }';
  43.     if (defined &KERNEL) {
  44.     eval 'sub LOG_PRINTF {-1;}';
  45.     }
  46.     eval 'sub LOG_MASK {
  47.         local($pri) = @_;
  48.         eval "(1 << ($pri))";
  49.     }';
  50.     eval 'sub LOG_UPTO {
  51.         local($pri) = @_;
  52.         eval "((1 << (($pri)+1)) - 1)";
  53.     }';
  54.     eval 'sub LOG_PID {0x01;}';
  55.     eval 'sub LOG_CONS {0x02;}';
  56.     eval 'sub LOG_ODELAY {0x04;}';
  57.     eval 'sub LOG_NDELAY {0x08;}';
  58.     eval 'sub LOG_NOWAIT {0x10;}';
  59. }
  60. 1;
  61.